﻿Public Class frmBusquedaCursos
    Private objCursoLN As GestorCursoLN
    Private vtn_frmListaProfesores As frmListaProfesores = New frmListaProfesores
    Private res As DialogResult
    Private Sub btn_buscarProfesor_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_buscarProfesor.Click
        res = vtn_frmListaProfesores.ShowDialog()
        If (res = DialogResult.OK) Then
            If vtn_frmListaProfesores.dgvProfesores.SelectedRows.Count = 1 Then
                Me.txtProfesor.Text = vtn_frmListaProfesores.dgvProfesores.SelectedRows.Item(0).Cells(0).Value
            End If
        End If
    End Sub


    Private Sub btnBuscarCursos_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBuscarCursos.Click
        Me.pLimpiarGrilla()
        Dim lCursos As List(Of CursoEN)

        lCursos = objCursoLN.pBuscarCurso(txtCodigo.Text, txtNombre.Text, txtProfesor.Text, cmbNivel.GetItemText(cmbNivel.SelectedItem))
        Me.pCargarGrilla(lCursos)
    End Sub
    Private Sub pCargarGrilla(ByVal lCursos As List(Of CursoEN))
        Dim i As Integer

        For i = 0 To lCursos.Count - 1
            Me.dgvCursos.Rows.Add(lCursos.Item(i).IdCurso, lCursos.Item(i).NombreCurso, lCursos.Item(i).ProfesordeCurso.NombreProfesor)
        Next
    End Sub
    Private Sub frmBusquedaCursos_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        objCursoLN = New GestorCursoLN
        Me.dgvCursos.SelectionMode = DataGridViewSelectionMode.FullRowSelect
    End Sub
#Region "LIMPIEZA"
    'Private Sub btnLimpiar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLimpiar.Click
    '    pLimpiar()
    'End Sub

    'Limpiar todos los componentes
    'Private Sub pLimpiar()
    '    txtProveedor.Clear()
    '    txtIdProducto.Clear()
    '    txtNombreProducto.Clear()
    '    pLimpiarGrilla()
    '    txtProveedor.Focus()
    'End Sub

    'Limpiar la grilla
    Private Sub pLimpiarGrilla()
        dgvCursos.Rows.Clear()
    End Sub
    'Valida que se desee realmente cancelar la transacción
    Private Sub btnCancelar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCancelar.Click
        If MessageBox.Show("¿Desea cancelar la transacción?", "Aviso", MessageBoxButtons.YesNo, MessageBoxIcon.Question, MessageBoxDefaultButton.Button2) = Windows.Forms.DialogResult.Yes Then
            'Button 1 es el Si, Button 2 es el No, Button 3 es el Cancel
            Me.Close()
        End If
    End Sub
#End Region
    Private Sub btnAceptar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAceptar.Click
        Me.DialogResult = Windows.Forms.DialogResult.OK
    End Sub

    
    
End Class